home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 July / Ahoy_Magazine_88-07_1988_Double_L.d64 / Split Face (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  677b  |  14 lines
  1. 1 a=49152:rem * (a=4864 for the c-128) * (both versions can be relocated.) *
  2. 2 forj=atoa+107:readb:pokej,b:x=x+b:nextj
  3. 3 ifx<>17061thenprint"error in data...":end
  4. 4 rem *** you could place a return here if this is used as a subroutine. ***
  5. 5 data169,20,133,250,169,0,162,4,160,216,133,251
  6. 6 data133,253,134,252,132,254,162,24,160,38,177,251
  7. 7 data200,145,251,136,177,253,200,145,253,136,136,192
  8. 8 data20,176,239,160,20,169,32,145,251,160,1,177
  9. 9 data251,136,145,251,200,177,253,136,145,253,200,200
  10. 10 data192,21,144,239,160,19,169,32,145,251,165,251
  11. 11 data24,105,40,133,251,144,2,230,252,165,253,24
  12. 12 data105,40,133,253,144,2,230,254,202,16,181,160
  13. 13 data10,202,208,253,136,208,250,198,250,208,153,96
  14.